#
#This is a comment

#add data to rawdata
rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25) 

#show max
max(rawdata)

#show min
min(rawdata)

#show data summary
summary(rawdata)

#show median
median(rawdata)

#plotgraph with raw data and lines connecting the data, add lables
plot(rawdata,type="b",xlab="Time in seconds", ylab="CPU Idle Level")

#plot max line
abline(h=max(rawdata),v=0)

#plot min line
abline(h=min(rawdata),v=0)

#Plot mean line
abline(h=mean(rawdata),v=0)
